* lisp/simple.el (exchange-dot-and-mark): Mark obsolete, finally.

diff --git a/.bzrignore b/.bzrignore
index 52735438f5714acff88a5d4d8f1e343a2dc9a32f..730ef237e8e610f708455dc74598c64c10d18a46 100644 (file)
--- a/.bzrignore
+++ b/.bzrignore
@@ -68,3 +68,4 @@ configure.lineno
 src/core
 core
 lib-src/stamp-*
++*

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81e4ccb9a38ae4b895b42e10bdbcb22c399f2351..6fe94d867c732cbff19a3671c44a0e73c942372d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-08-04  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * simple.el (exchange-dot-and-mark): Mark obsolete, finally.
+
 2010-08-03  Juanma Barranquero  <lekktu@gmail.com>
 
        * progmodes/which-func.el (which-func-format): Split help-echo text

diff --git a/lisp/simple.el b/lisp/simple.el
index 6c8725a813f00d84552d96af2503ba6234887270..d0c27656e41fde5da5bd6e8ec607cb4b3cb69d3a 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3819,7 +3819,8 @@ Does not set point.  Does nothing if mark ring is empty."
     (setq mark-ring (cdr mark-ring)))
   (deactivate-mark))
 
-(defalias 'exchange-dot-and-mark 'exchange-point-and-mark)
+(define-obsolete-function-alias
+  'exchange-dot-and-mark 'exchange-point-and-mark "23.3")
 (defun exchange-point-and-mark (&optional arg)
   "Put the mark where point is now, and point where the mark is now.
 This command works even when the mark is not active,